TRANS	T1	     20.00     40.00      1.00    180.00     45.00       .00
TRANS	T2	     20.00     30.00      1.00    180.00     45.00       .00
TRANS	WA	     24.00     25.00      1.00    150.00     45.00       .00
TRANS	W1	     20.00     30.00      1.00    180.00     45.00       .00
TRANS	W2	     22.00     32.00      1.00    225.00     45.00       .00
TRANS	W3	     20.00     32.00      4.00    180.00     90.00       .00


VECT	X	      1.00       .00       .00
VECT	Y	       .00      1.00       .00
VECT	Z	       .00       .00      1.00
VECT	F	       .00       .00   -100.00
VECT	VEL	       .00       .00       .00
VECT	NIL	       .00       .00       .00
DEFINE	INTL	
SET LOC W1 W1
SET LIN W1 W1
WORK

DEFINE	LOC	
SET LOC WA W1
SET LIN W1 W1
WORK

DEFINE	LIN	
VECT VEL
0 .01 0
MOVING LIN VEL
SET LOC WA W1
WORK

DEFINE	WORK	
ASSIGN COUNT 4
NNUL
L: GOTO W1
RESTORE LOC 0
RESTORE LIN 0
OPEN 1
NNUL
GOTO W2
RESTORE LOC 0
RESTORE LIN 0
CLOSE -1
NNUL
GOTO W3
RESTORE LOC 0
RESTORE LIN 0
OPEN 5
SOJG COUNT L